Những câu hỏi liên quan
Linh Thùy
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 4 2021 lúc 21:33

uses crt;

const fi='bai1.inp'

var f1:text;

a,b,c,cv,dt,p:real;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then 

begin

cv:=a+b+c;

p:=cv/2;

dt:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln(f1,'Chu vi la: ',cv:4:2);

writeln(f1,'Dien tich la: ',dt:4:2);

end

else writeln(f1,'Day khong la ba canh trong mot tam giac');

close(f1);

readln;

end.

Bình luận (1)
Phạm Vũ Hoài Châu
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 1 2021 lúc 22:40

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then 

begin

writeln('La do dai ba canh cua tam giac');

writeln('Chu vi tam giac la: ',a+b+c:4:2);

end

else writeln('Khong phai la do dai 3 canh cua tam giac');

readln;

end.

Bình luận (2)
Nhã Uyênn
15 tháng 11 2021 lúc 18:02
print (" Kiem tra 3 do dai cua tam giac ")a=int(input("Nhap so a: "))b=int(input("Nhap so b: "))c=int(input("Nhap so c: "))if a+b>c and b+c>a and c+a>b:print ("Day la Tam Giac")else:print ("Day khong phai tam giac") 'Đây là lập trình Python nha'
Bình luận (0)
duc dung
Xem chi tiết
duc dung
15 tháng 12 2021 lúc 9:10

giúp e vs ạ e cảm ơn nhiều<333

 

Bình luận (0)
Tuấn anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2022 lúc 20:08

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

readln(a,b,c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then 

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Chu vi la: ',2*p:4:2);

writeln('Dien tich la: ',s:4:2);

end

else writeln('A B C khong phai la chieu dai ba canh cua mot tam giac');

readln;

end.

Bình luận (0)
Huynh ThuongHan
Xem chi tiết
Luân Đào
31 tháng 12 2020 lúc 17:30

var a,b,c,s,p: real;

begin

write('Nhap canh thu nhat: '); readln(a);

write('Nhap canh thu hai: '); readln(b);

write('Nhap canh thu ba: '); readln(c);

if (a+b>c) and (b+c>a) and (c+a>b) then 

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Chu vi tam giac la ',2*p:5:2, '(dvdd)');

writeln('Dien tich tam giac la: ',s:5:2, '(dvdt)');

if (a=b) and (b=c) then writeln('Day con la tam giac deu') else

if (a=b) or (b=c) or (c=a) then writeln('Day la tam giac can') else

if (a*a+b*b=c*c) or (b*b+c*c=a*a) or (c*c+a*a=b*b) then writeln('Day la tam giac vuong') else

writeln('Day la tam giac thuong');

if ((a=b) or (b=c) or (c=a)) and ((a*a+b*b=c*c) or (b*b+c*c=a*a) or (c*c+a*a=b*b)) then writeln('Day la tam giac vuong can')

end

else writeln(a:5:2,',',b:5:2,',',c:5:2,' khong la do dai mot tam giac');

end.

Bình luận (1)
Huynh ThuongHan
31 tháng 12 2020 lúc 15:16

help me !!!!!!

Bình luận (0)
duc dung
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 1 2022 lúc 22:29

#include <bits/stdc++.h>

using namespace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

p=(a+b+c)/2;

s=sqrt(p*(p-a)*(p-b)*(p-c));

cout<<fixed<<setprecision(2)<<s;

return 0;

}

 

Bình luận (0)
Nguyễn Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 15:39

uses crt;

var a,b,c:real;

begin

clrscr;

readln(a,b,c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then 

begin

if (a=b) and (b=c) then write('Day la tam giac deu')

else writeln('Day khong la tam giac deu');

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Bình luận (0)
cươngg
Xem chi tiết
Kiều Vũ Linh
16 tháng 5 2022 lúc 10:02

var a,b,c,p,s:real;

begin

write('Nhap so thu nhat ');readln(a);

write('Nhap so thu hai ');readln(b);

write('Nhap so thu ba ');readln(c);

if (a + b > c) and (a + c > b) and (b + c > a) then

begin

writeln('Ba so vua nhap la ba canh cua tam giac');

p:=a+b+c;

s:=sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));

writeln('Chu vi tam giac la ',p:10:2);

write('Dien tich tam giac la ',s:10:2);

end

else write('Ba so vua nhap khong phai ba canh cua tam giac');

readln;

end.

Bình luận (0)
Minh Nhật Phan
16 tháng 5 2022 lúc 10:22

Program TAMGIAC;

Uses crt;

Var a,b,c,s,p: real;

Begin

   Clrscr;

   Writeln('BAI TOAN TAM GIAC:'); Writeln(' ');

   Write('nhap a =');

   readln(a);

   Write ('nhap b =');

   readln(b); Write('nhap c =');

   readln(c);

   If ((a+b)>c)and((b+c)>a)and((a+c)>b) then

      Begin

         p:=(a+b+c)/2;

         s:=sqrt(p*(p-a)*(p-b)*(p-c));

         Writeln('Chu vi tam giac:',2*p:4:2);

         Writeln('Dien tich tam giac:',s:4:2);

      End

   Else

      Writeln(a,', ', b,', ', c, ' khong phai la ba canh cua tam giac') ;

   Readln;

End . 

Bình luận (0)
Trần Hải
Xem chi tiết